home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ MSOXP OTL Options 3.xpl < prev    next >
Text File  |  2001-12-30  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Outlook"
  5. "NAME"="Email HTML Security"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable emails in HTML format (SP1)"
  9. "DESCRIPTION 1"="By default, Outlook displays HTML Mails inside the Preview and the normal message window. As it uses Internet Explorer for this, this might be a security hole as a security bug in Internet Explorer affects Outlook as well."
  10. "DESCRIPTION 2"="If this setting is turned off, Outlook will display all non-digitally-signed or nonencrypted messages in plain text format only. This means, Outlook does no longer use Internet Explorer do display these messages."
  11. "DESCRIPTION 3"="IMPORTANT! This feature requires that you install Service Pack 1 (SP1), else it will have no effect!"
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  15. "COMMENT 1"="More info: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q307594"
  16.  
  17.  
  18.     sV1="HKCU\Software\Microsoft\Office\10.0\Outlook\Options\Mail\ReadAsPlain" 'DW: 1
  19. sPCheck="HKCU\Software\Microsoft\Office\10.0\Outlook\"
  20. Sub Plugin_Initialize 
  21. if RegPathExists(sPCheck) then
  22.    i=RegReadValue(sV1)
  23.    if IsEmpty(i) then
  24.       SetUIElement 1,true
  25.    else
  26.       if i=0 then 
  27.          SetUIElement 1,true
  28.       end if
  29.    end if
  30. else
  31.    Disable()
  32. end if
  33. END SUB
  34.  
  35.  
  36. 'Called when the Plugin should apply the changes
  37. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.     If RegValueExists(sV1) then Call RegDeleteValue(sV1)
  41.  else
  42.                                 Call RegWriteValue(sV1,1,2)
  43.  end if
  44.  
  45.  
  46.  
  47. END SUB
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.